home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / macberon.sit / MacOberon 2.4(0) / MacEvents.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1991-10-17  |  1.1 KB  |  27 lines
  1. Syntax10.Scn.Fnt
  2. MODULE MacEvents;    (*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
  3. IMPORT
  4.     TY:= MacTypes, QD:= MacQuickDraw;
  5. CONST
  6.     everyEvent*= -1;
  7.     nullEvent*= 0; mouseDown*= 1; mouseUp*= 2; keyDown*= 3;
  8.     keyUp*= 4; autoKey*= 5; updateEvt*= 6; diskEvt*= 7;
  9.     activateEvt*= 8; networkEvt*= 10; driverEvt*= 11;
  10.     app1Evt*= 12; app2Evt*= 13; app3Evt*= 14; app4Evt*= 15;
  11.     EventRecord*= RECORD
  12.         what*: INTEGER;
  13.         message*: LONGINT;
  14.         when*: LONGINT;
  15.         where*: TY.Point;
  16.         modifiers*: INTEGER
  17.     END;
  18.     KeyMap*= ARRAY 4 OF LONGINT;
  19.     PROCEDURE - WaitNextEvent*(mask: INTEGER; VAR event: EventRecord; sleep: LONGINT; mouseRgn: QD.RgnHandle): BOOLEAN    0A8H, 60H;
  20.     PROCEDURE - GetKeys*(VAR theKeys: KeyMap) 0A9H, 076H;
  21.     PROCEDURE - GetMouse*(VAR mouseLoc: TY.Point) 0A9H, 072H;
  22.     PROCEDURE - GetDblTime*(): LONGINT 02EH, 0B8H, 002H, 0F0H;
  23.     PROCEDURE - TickCount*(): LONGINT 0A9H, 075H;
  24.     PROCEDURE - FlushEvents*(whichMask, stopMask: INTEGER) 020H, 01FH, 0A0H, 032H;
  25.     PROCEDURE - SetEventMask*(theMask: INTEGER) 031H, 0DFH, 001H, 044H;
  26. END MacEvents.
  27.